Top 10k strings from MicroHobby Semanal - Issue 065-068 (1986)(Hobby Press)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8 ;" PARE LA CINTA ":
6 R. PRADES 1986
6 CODESECT 1.1
4 y4,x4;" ":
4 y,x;m$(h);
3 a$)+"^2)"+"*"+
3 ;"PULSA UNA TECLA.":
3 ;"INSTRUCCIONES"
2 v$=v$+"k(n,"+
2 n=bloque*64
2 d$=a$(b(i)+1
2 byte,sector
2 b(A$)>bloque*64
2 b(A$)<bloque*64
2 a$="("+c$+")":
2 P(NIV,A(V(N),H(N)));
2 M$=" PULSA UNA TECLA ":
2 INSTRUCCIONES
2 ;bloque''''
2 ;F$(NIV,A(V(N),H(N)),3
2 ;F$(NIV,A(V(N),H(N)),
2 ;F$(NIV,A(F,N),3
2 ;F$(NIV,(N*4
2 ;"SELECCIONA UNA OPCION"
2 ;"MEMORION";
2 ;"BYTE: ";:
2 ;" SECT ";
2 ;" BLOQUE ";
2 ;" >>> ";:
2 ;" ASCII: ";
2 ;" MENSAJE ":
2 -jj);"=";:
2 +codigo*100
2 (byte+offset),
2 (byte+offset));
2 (NPROG/DOS)
2 ((x-x0)/delt+1.5
2 "NOMBRE DEL FICHERO: ";
2 "????????????????????"
2 "22",CERO;B$:
1 z(i,j)=v(i,j):
1 z(i,j)=a(j):
1 z(i,j)=(z(i-1
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
1 x(puntos):
1 x(p)=x0+(p-1
1 x(i)=x0+delt*(i-1
1 w+")+x*(":
1 w(i,j)=z(jj+3
1 w(i,j)=-w(i,j)
1 vars=vars+paso
1 vars=vars+1
1 vars),"> ";vars
1 vars)+"$","> ";vars
1 v(i,j)=z(i,j):
1 v$=v$+")":
1 ultima=w-1
1 ult=ultima
1 u(s)=a(s):
1 time=(65536
1 time0=time:
1 time-time0<tiempo
1 tiempo=120
1 sector>1590
1 q$=j$+"-y":
1 pvar2=pvar:
1 pvar1=pvar:
1 pvar1*pvar2
1 pant=pant-10
1 pant=pant-1
1 pant=pant+10
1 pant=pant+1
1 pant=i(mi+1
1 nuevao=i+1
1 niv=orden:
1 micro
1 len=a1+(a2-a1)*(a2>a1)
1 l(x)*((x<48
1 k(puntos,grado+2
1 k(n,1)+x*(k(n,2)+x*(k(n,3)+x*(k(n,4)+x*(k(n,5)+x*(k(n,6)+x*(k(n,7)+x*(k(n,8)+x*(k(n,9)+x*(k(n,10)+x*(k(n,11)+x*(k(n,12))))))))))))
1 j=ultima+1
1 j(j)*(j<ult+7
1 isd=isd-jsd
1 isd=isd*dsd/3
1 i(x), ESTA HALLADA VUELVO AL MENU"
1 i(x(p)-(delt/(2
1 i(x(p)+delt/(2
1 i$="k(p,o)=
1 i$-(p=fin)))=0
1 gre=grado+(ult+5
1 fac=fac*i:
1 dsd=(bsd-asd)/2
1 direccion=a
1 direccion=4050
1 direccion=2150
1 derm=(derm+put+
1 delt=(delt+(x1-x0)/20
1 d(x(p)+(j-(dzj+1
1 d$=d$+a$(b(j)+(j=1
1 d$=d$+"*"+
1 cara
1 calculo
1 c$=c$+a$(b(i))+
1 c$=c$+"*"+a$(b(i)+1
1 c$="("+c$+")"
1 c$(len-a1+1
1 byte=23296
1 bloque=bloque-1
1 bloque=bloque+1
1 b$=b$+e$(o):
1 b$(len-a2+1
1 a(s)=a(s)*y(3
1 a(j)=z(i,j):
1 a$=c$+"*"+a$(1
1 a$=a$+"*"+
1 a$="1/2/"+a$+"*"+
1 a$="1/"+a$(2
1 a$)+"^2"+"*"+
1 a$)+")"+"*"+
1 a$(b(i)+(i=1
1 ^t]#^#^$^A
1 Variables
1 UNO;"PONGA EN MARCHA LA CINTA";
1 TZX por Manuel Gomez Amate
1 Sistemas Y"
1 SPACE-UNO,X1
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 RECORD=PUNTOS:
1 RECORD=PUNTOS
1 PUNTOS=PUNTOS+10
1 PROG.CENTRAL
1 PAREJAS=PAREJAS+1
1 P(NIV,A(F,N));F$(NIV,A(F,N),
1 P(NIV,A(F,N));
1 P(NIV,(N*4
1 NUMERICA COMPUESTA
1 Memorion
1 M$="LO SIENTO, FIJATE MAS.":
1 M$="COORDENADAS REPETIDAS ":
1 M$=" PANTALLA TERMINADA. ":
1 M$=" MAXIMA PUNTUACION. ":
1 M$=" COORDENADA REPETIDA. ":
1 M$=" AHORA OBSERVA ":
1 LECTURA VARIABLES
1 Integral 2
1 Integral 1
1 I,CERO;,,:
1 Hobby Press
1 Floppy t
1 DOS=UNO+UNO
1 Castellano
1 Cargador d
1 Canibales g!
1 Calculador
1 CINTA 17 CARA B
1 CERO;" ";
1 C$=" Por favor, elija un programa "
1 B$=" "
1 A(RND1,RND2)=N:
1 A(RND1,RND2)
1 ="L")-(378
1 ;sector;#0
1 ;F$(NIV,A(F,N),
1 ;"pulsa una tecla":
1 ;"numero impar de parentesis":
1 ;"ax+by=c"''"dx+ey=f"
1 ;"Y sumando:"'''
1 ;"Y de la ecuacion ";2
1 ;"VIDAS:";vi,"CANIBALES:";mi
1 ;"TE COMIERON":
1 ;"Sustituyendo en la ecuacion ";2
1 ;"SOPA DE CANIBALES";
1 ;"RECORD":
1 ;"Pulsa una tecla para empezar":
1 ;"PUNTOS":
1 ;"PULSE CUALQUIER TECLA."
1 ;"PULSA ENTER PARA GRABAR"
1 ;"Operando: ";
1 ;"NUEVO NOMBRE : ";
1 ;"NOMBRE DEL FICHERO: ";
1 ;"NOMBRE ACTUAL: ";
1 ;"NO TIENES VIDAS":
1 ;"NIVEL ";NIV
1 ;"Multiplicando la ecuacion 1 por ":
1 ;"Los controles son:"'" Q-arriba O-izquierda A-abajo P-derecha"
1 ;"La integral pedida vale.."''" ";isd''" Pulsa una tecla para MENU "
1 ;"LOS CANIBALES YA ESTAN LISTOS PARA EL PUCHERO"''''''
1 ;"LO HAS CONSEGUIDO!!"''''"HOY TE DARAS UN BUEN ATRACON"''
1 ;"LO HAS CAZADO"
1 ;"LA FUNCION INTEGRA ,
1 ;"Introduce los valores de a,b,c, d,e y f"''"Si alguno es fraccionario intro-duce antes la letra 'f'"
1 ;"Instrucciones? ";i$:
1 ;"Igualando: ";:
1 ;"HAS FRACASADO";
1 ;"ERROR:";error;
1 ;"De la ecuacion ";ii+1
1 ;"De donde ";
1 ;"DEC: ";:
1 ;"CREADO POR V.T.C";
1 ;"CREADO POR V.T.C":
1 ;"2. VER INSTRUCCIONES.";
1 ;"1. INICIAR PARTIDA.";
1 ;"- MENU -"
1 ;"!!!!QUE TE LOS COMAS BIEN!!!!"
1 ;"!!! FALLA EL D.O.S. !!!":
1 ;" tenemos:"
1 ;" ESPERA UN POCO"
1 ;" 1 9 8 5 "
1 ;" HEX: ";
1 ;" El contador 'NP' te indica el Numero de Parejas que has des- cubierto."
1 ;" DEC: ";
1 ;" 11 22 33 44 55 66 ":
1 ;" Si te sientes todavia opti- mista (cosa que dudo), tienes solamente una oportunidad."
1 ;" Estate atento porque la cosa no es nada facil."
1 ;" Encuentra las 15 parejas de caras que el ordenador te mos- trara."
1 ;" El recuadro de MENSAJES se iluminara cada vez que tenga que darte algun mensaje."
1 ;" Cada vez que ocurra esto a- pretando una tecla obtendras el mensaje."
1 ;" Cada vez que encuentres una pareja de caras obtendras 10 puntos."
1 ;" Asi que !BUENA SUERTE!!!"
1 ;" MENSAJE "
1 ;" "
1 ;" ":
1 ;" "
1 ;" ":
1 4- DIBUJAR INTEGRAL
1 0+3+4*2*x^(2-1)+3*x^(3-1)B
1 0+3+4*2*x^(2-1)+3*x^(3-1)
1 -grado)*(ult+5
1 ,D.L.: M-36598-84
1 +w)+"$=e$":
1 +jj);"=";:
1 +jj);"=";
1 +i);"? ";z(i,1
1 +"("+d$+")":
1 +"("+d$+")"
1 +"("+c$+")+"+c$+"/"+a$(1
1 +"("+c$+")":
1 +"("+a$(b(j)+1
1 +"("+a$(b(i)+1
1 *error/(derm+1e-27
1 *** CINTA-MICROHOBBY ***
1 *(len-a2),p2-7
1 *(len-a1),p2+1
1 *(grado-ultima)+1
1 )=z(j-ultima,(dzj+1
1 )=x*((x>64
1 )=L$(N,(F*5
1 )="+*")+(c$(1
1 );"/";z(i,2
1 );"()","> ";vars
1 );"$()","> ";vars
1 );"#","> ";vars
1 ),r)=z(t+(3
1 ),r)*w(s,r):
1 ),"> ";paso:
1 )+39916800
1 )+(p=fin)))=1
1 )+"^("+c$+"-1)*"+
1 )+"^"+c$+"*(
1 )+"^"+c$+"*
1 (y2,x2)=56
1 (derm-put))/2
1 (delt-(x1-x0)/20
1 (byte+offset)>127
1 (byte+offset)<32
1 (VALOR)<"A"
1 ((x1-x0)/delt)+1
1 ("+a$(b(i)+1
1 ''"Sustituyendo en ec.";ii+1
1 '" Tu,un misionero,deberas buscar a tres canibales y echarlos a laolla que aparece al principio para lo cual solo tienes que arrimarte a ella por la derecha.Pero no todo es tan facil,pues muchos son los animales de la jungla que estan hambrientos. Los canibales no tienen nada de tontos y se escaparan nada mas "
1 "verte.Persiguelos hasta acorra- larlos."'"Pulsa una tecla para continuar":
1 "numero impar de parentesis !!!":
1 "VERTICAL (";(N);"): ";V(N):
1 "SINTAXIS INCORRECTA"
1 "REBASADO NUM. SECTOR"
1 "Precision (3 a 9)=";jsd
1 "PULSA ENTER PARA CONTINUAR";
1 "Otro juego (s/n)? ";j$:
1 "Origen de integracion "'"x0=";x0:
1 "NUMERO DE SECTOR : ";
1 "N.A:Si te parece muy rapido como para apuntarlos cambia esta linea
1 "MicroHobby Semanal numeros 65 a 68
1 "Mete la funcion f(x)="
1 "METE f(x)=";
1 "MAXIMO ERROR DE INTEGRACION ="'ERROR
1 "Limite superior =";bsd
1 "LIMITE INFERIOR = ";ASD
1 "HORIZONTAL (";(N);"): ";H(N):
1 "FICHERO YA EXISTENTE"
1 "FICHERO NO EXISTENTE"
1 "EXTREMO DEL INTERVALO DE"'"INTEGRACION x1= ";x1
1 "E-Integral 1","F-Integral 2","G-Calculador","H-Memorion"
1 "DISKETTE LLENO"
1 "DISKETTE DEFECTUOSO"
1 "DATAS GDU"
1 "A-Sistemas","B-Variables","C-Floppy","D-Canibales"
1 "64"+NPROG)
1 "5";"cara: ";
1 "5";"Programa: ";
1 "5";"Programa inexistente":
1 "5";"'R' Vuelve al menu"
1 "5";"'L' Carga el programa";
1 "32"-I;C$(
1 "22",CERO;C$(I
1 "22",CERO;B$
1 "22",CERO;
1 "1)INTRODUCIR ECUACIONES","2)METODO DE SUSTITUCION","3)METODO DE REDUCCION","4)METODO DE IGUALACION"
1 "'''"NUMERO DE SECTOR : ";
1 " y la 2 por ";:
1 " queda:"''
1 " En estos tiempos tan dificilesque estamos pasando,la supervi- vencia es casi imposible.Por esto en nuestra jungla ocurre algo raro.Los misioneros son losque buscan ahora a los canibalespara echarlos al puchero."
1 " MENU ","1- INTEGRAL DEFINIDA","2- INTEGRAL INDEFINIDA","3- DIBUJAR FUNCION","4- DIBUJAR INTEGRAL"
1 VISUALIZAR SECTOR
1 VISUAL. HEXA.
1 VISUAL. ASCII
1 SUBRUTINA VISUAL.
1 SUBRUTINA ERROR
1 SUBR. VIS. ASCII
1 SUBR. INPUT HEXA.
1 SALVAR FICHERO
1 RENOMBRAR
1 PULSA ""ENTER""":
1 PROGRAMA "CODESECT"
1 ORGANIZAR
1 NUMERICA SIMPLE
1 MOVIMIENTO
1 MOD. BYTE HEXA.
1 MOD. BYTE ASCII
1 MENSAJES DE ERROR
1 MATRIZ NUMERICA
1 MATRIZ DE CADENA
1 GRAFICOS
1 FUNCIONES HEX-DEC
1 FUNCIONES DEC-HEX
1 EVALUACION BASES
1 EVAL. HEXA.
1 EVAL. DECIMAL
1 DIRECTORIO
1 COMANDOS D.O.S.
1 CANIBALES
1 BUCLE PRINCIPAL
1 BUCLE DE LECTURA
1 BLOQUE SIGUIENTE
1 BLOQUE ANTERIOR
1 ALBERTO TOLEDO";
1 VISUALIZAR SECTOR";
1 SALVAR SECTOR";
1 RETORNO AL D.O.S."
1 RETORNO AL BASIC";
1 RENOMBRAR FICHEROS";
1 Por favor, elija un programa A
1 ORGANIZAR FICHEROS";
1 MENU PRINCIPAL"
1 DIRECTORIO";
1 COMANDOS D.O.S.";
1 BORRAR FICHEROS";
1 DIRECCION
1 NOMBRE
1 Pulsa una tecla
1 ERROR
1 FIN
1 C